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Selling: 728 K 3.5" Drives for 838, ,وم‎ , $28ea, in Quant. of ið 


SNUG ?? What if hppening? I have read they Published two newsletters, 
Dur club Should have joined by now... Perhaps We Will hear more soon, 
However there is another Larken format Public domain disk out, It is 
avaliable from Tony Willing at: P.O, Boy 199, Vashon, WA 38070, (Three 
total at this time), Tape requests to Tim Ward, 5142-0 Ginkso Br, Shag 
Tacoma, WA 98439 (7 60 min, tapes for T5-1000) , (3 ٦٦-2858 tapes) all 
items $4.00 ea, Also they are looking for contibutions to the Library, 


PROFILE+S!. Profile update, New Features, Avaliable from RNG ENTERPRISES 
1419 1/2 7th 5.۰ Oregon City, OR 97045 (Phone 503/655-7484) 


Users Manual Avai labie From Tom Woods $16.88 task RMG For Toms! Address, 


UPDATE Computer Systems, Quarterly Masazine For SINCLAIR COMPUTERS, 
COVErS disk drives For Our machines,,,, and iS $16 08 P.D, Box 1095, 
Peru IN HESTE, ,,,, Subscribe now For the UPCOMING year (Starts nest year 
With the issue due out arter this current ONE) conrused 7 ....write them 
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Bob Swocer, 513 Parkside Circle, Streamwood IL 7 
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SINCLAIR RULES! by John Pazmino 

Ongoing news from the Mother Country about the Spectrum are good, 
good, good! There are now two nonSinclairs that have Spectrum 
emulation! The first is an allnew' rig, from Miles Gordon Technology, 
that in one of its several opmodes turns into a Spectrum. 

Many stateside Sinclair fans heard of this Machine, the SAM 
Coupe', and it has been noted in some American Sinclair club 
newsletters. My own assessment, based on reports and correspondences 
from the UK, is that the Coupe' as a new computer system has little 
much to offer over existing systems. indeed, in British terms the 
Coupe' fully equiped costs as much as an Amiga or an Atari ST, both 
these being quite superior to the Coupe'. Never the less the 
inclusion of a Spectrum mode does speak well of the integrity and 
longevity of the Sinclair Platform. 

On the other hand, apparently the emulation is Partial only. 
According to what I can discern the SAM Coupe' only allows Spectrum 
games to be played; I have not yet seen word of other normal Spectrum 


It maps the Coupe’! keyboard into a Spectrum's, with all the keywords 
and shifts. It allows running programs to be interrupted, POKEd and 
PEEKed, and SAVEd onto Coupe' discs, apparently like the Spectrum's 
own Multiface module. 

Now comes the second instrument with Spectrum emulation: the 
Commodore Amiga!! A Plugin module and Amiga disc constitute the MU 
kit. The module has a Cassette port and the disc has the MU program. 


direct to an Amiga disc whence it can be loaded and run thereafter. 
The drawback of this scheme is the slow workings, typical of Sw MUs, 


There's more good gumbo about Sinclair! sw houses are looking 
again at the Spectrum, after Saying two years ago that it isa 


Christmas. About 30 kiloSpectrums were pushed thru the paypoints of 
the shops in England! Off-Island [meaning the British Isles] sales 
remain very strong. Spain, Holland, Italy all are strong Spectrum 
centers in Europe. There is a new market for Spectrum -- Eastern 
Europe. There was a trickle of Spectrums into the East all along, and 
into the USSR, too, but the economic scheme previously in force 
hindered and hampered sales. Now with the Wall down -- and the union 
of the German economy across that Wall -- Spectrums are snatched off 
the shelves in Prague, Budapest, Warsaw, and other East European 
centers. 

A final bulletin. your Sinclair, the UK's top-selling Sinclair 
mag, shifted from London to Bath in May 1990. This resulted from a 
leveraged buyout of the pub by Future Publishing for [variously 
reported] UKL 175 or UKL 180, about USD 300. Altho this seems low by 
American standards, do bear in mind the decrepit state of the British 
economy. What's more, this price did not allow for the costs of the 
move! The actual shifting was accomplished by applying the classical 
Swedish intrigue on pritRail. Anyway, Your Sinclair are domiciled at 
Future Publishing Ltd, 30 Mommouth Street, Bath BAl-2AP, England; tel 
0255-442-244. 
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_ For many of us, computer Log- 
iC iS & bit difficult to under- 
Stand, and articles Like the 
oné reputed ta be bu Sharon Z. 
Aker in the July ‘88 issue of 
UPDATE muddies the water more. 
On page i4, under the title of 
Priorty, the article States 
that NOT Bcc is interpreted as 
(NOT 8300. This is wrong. NOT 
applies to the entire expres- 
sion BU as the <: operator has 
a higher priority than NOT and 
the computer Will evaluate B<c 
First. Look at page 223 of the 
Manual for a priority listing. 

NOT applied to a condition 
Can result only in à togic val- 
ve Of ث‎ or 1, regardless of the 
appearance of the condition. 
For example, conSidéresees 


NOT X = 58 


This is interpreted by the 
COMPULTEF SBScaee 


NOT (X = 50) 


If X does equal 50, the condi- 
tion, X = 50, is TRUE and fE- 
Sults in a logic value of 1 for 
this condition. Then NOT 1 has 
a logic value of D. 


Conversely, if K has a value 
oF anything other. than 52, the 


Then Nor a, ea 
has a. logic Value oF age 


“We can Show this by a Short 
LEST PFOGrassssccs f 


18 LET X = 86 
20 IF NOT X = 50 THEN PRINT 


oy 7 
30 IF NOT ix = 580) THEN 
PRINT "OK" 


40 PRINT "End GF test" 


Now change the value of X in 
Line 18 to anything but S@ and 
Lines 20 and 32 will print ovt 
their strings. Why? 

x = 58 is not TRUE and its tog- 
ic value becomes @. Now, NOT ð 
gives ā logic valué of 1. As 
the entire expression has a loge 
ic value of 1, the THEN action 
lakes place. 


Because 


The parentheses in line 8 
aré not necessary, but if you 
Wish to make the Evaluation OF 
an Expression cltar, USE them. 
The computer Simply ignores 
superfluous parentheses, and 
evaluates X = 50 First because 
oF the priorty of the” = Gpera- 

tor. 


Let's 


GO a step rther. 
computer considers all lagic on 
@ numerical basis. Ta the coam- 
puter, every logic term that is 
TRUE is astignéed the number 1l: 
Otherwise it gets a OB. We can 
FUL this ta ā iest by adding 
Lines such as the Following ta 
Gur LEST Programie acess 

15 PRINT X = 50 
25 PRINT WOT x = 50 
35 PRINT WOT iX = 50) 


amd we Will get mothing but the 
numbers 1 3837-0۴ 8, on printout 
oF these lines, 


You can Get the Same retpanse 
by evaluating a logic statement 
yourself and Substituting the 
resulting logical value in the 
camputer line, Instead GF line 
20 as written above, write it 


GBSansassa 
20 IF 1 THEN PRINT "Yes" 


and the computer Will Print the 
string. Change the 1 to @ and 

the computer will not print the 
String. AS we Said before, the 
computer recognizes every thing 
but @ as the number 1. 50 now 

use something Like -3 in Place 

of the 1l. Again, the line wilt 
Print Gut the string word. 


If you get this concept af 
logic well established in your 
mind, you will pave Little or 
no trouble with logic WOT fram 


here on iti. 


(ther Way GF 
. You can 
(idm wherein 
SQUuivaLEnt ane 
bu recalling that it merety re- 
Logic TRUE and FALSE. In 
doing sa, NOT drops aut aF the 
expression. Sa NOT xX = 58 can 
be replaced bu x <b 50. E 
we try another? OK. NOT Y 
Can be replaced by Y <= 108. I 
Personaāaliy dant prefer this 
Way Of handling NOT because we 
forget how the Computer 
treats this unique oper- 


mina 


Warren Fricke 
8- 5 - 8 
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TIMEX LOGIC, PART I 


. & series of articles is 
Called Timex Logic rather than 
computer Logic because not all 
computers treat andvor use Llog- 
1C ās fully as the Timex compu- 
ter can. Some af the logic 
Operations described in this 
Series cannot be used on many 
Other computers, including one 
Fruity one, widely pushed onto 
our public School sustems. This 
1S not intended to imply that 
Other computers cannot perform 
Similar tasks. They can do the 


same thing by devious means but 
need more Programming lines and 
consume more time in sa daing. 
APPropriate logic can cut a lot 
GF corners. 


Line 18, that follows, is 
Statement containing a Sing 
logic condition. The const 
ticn of the Line if tUpical 
Most, but not atl, logic st 
MENTS. aan IF “5 66 logic Cc 
dition" THEN. s.. 


10 IF X>5 THEN PRINT "OK" 


X25 is read X"“greater than" 
5, is a logic condition 
or relation. 

a Variable that may 
have any numerical 
value, 

> MEANS “Qreater than" & 
is one GF Six symbol 


operators, =, <, >, 
<=, >=, and <>. Rerer 
to page 228 oF the 
manus t for their mean- 
ings, 


Line 12 means that if 
greater in value than 5, 
the word "OK". Whatever rol- 
lows THEN is the action to be 
taken, Which can be almost any- 
thing. Simple as this Statement 
Seems to be, the computer must i 
€Valuate the logic condition of 
A>S before it can act Property. 
It does this by making a com- 
Parison between X and 5. and 
then Substituting a “logic val- 
ue of 1" For the Condition if 
the condition is TRUE, or a 
“logic value of “ٹہ‎ For the con- 
dition if a is FALSE. It fFol- 
LS 


X is 
Print 


one 


laws that € condition will be 
TRUE of FALSE depending upon 
the value of the Variable X at 
the time the computer works on 
this line, and the comparison 
is made s 


Although the computer 
assigns a lagic value GF 
TRUE conditian, 
any number athe 


itself 

1 ta a 
it considers 
than تا‎ ta be 

r 


© 

logical TRUE, even negative nume 
bers. Thus a3a togic value af Q 
denotes a FALSE condition and 
any other logical valve denotes 
a TRUE conditian. Hence, logic 
iS number arientéd. WE Can test 
this by adding a Program line.. 


S LET X=6 
If we now RUN this two-line 


program, tine 1A will print cut 
the word "OK". This if because 
the togic condition oF #495 is 


TRUE, and the computer substi- 
tuted a logic valve of 1 

the condition. By direct 

have the computer PRINT X95 and 
the response will be 1, the | 
logic value of a TRUE conmditicon. 


If we change the value GF X 
in line 5 ta say 3 and RUN the 
program again, nothing prints 
Gut. This is be Cause the cüm- 
Logic Value GF 
ð to ihe K>S condition, aS it 

E. Ae berare, and by 
ask the computer 
The response Will 

t Lagical valve 


Now DELETE tine 5. And in 
line 18 in place GF the condi- 
tion ×× رظ‎ substitute 1, the loge 
ic Value for a TRUE Condition. 
RUN the one-line Program and 
the word "OK" will print. It 
Will also print “OK” no matter 
What numerical value if SuUbsti- 
tuted for X95, even negative 
Values. Tru some. But if a ۵ 
is Substituted For KS, indi- 
cating a FALSE condition, noth- 
ing prints aut. t 


It is important ta realize 
that the conditions rererred toa 
as TRUE or FALSE do not invotve 
morals nor are they indicative 
of dé€Siré€ability it any way. 
They are merely terms handed 
down from a branch Of mathemat— 
ics that was in €xistance long 
before the Timex Computer. You 
can verify this b4 running thru 
the preceding exercises with 
the condition changed ta read 


K<5, of X=5, etc. 

NOT is unique as a Logic Oper 
ator. It is the omly one ا۶‎ 
them that is also a Function; 
so it always hat a Following 
argument (condition) and a sub- 
sequent result, which in this 
case is always @ or 1. Unlike 
Other functions its pricrty is 
a low 4, ranking it below the 
six Sumbol operators and JUST 
above AND and OR. 


< 


NOT is used principā 
verse the beget جا کو‎ 
er logic operation. In expe 
sions like NOT X=Y, if X=Y is 
TRUE (logic valve 1), NOT X=Y 
is FALSE (logic value 0i. rf 
X=Y is FALSE, then NOT X=Y is 
TRUE. In this combination, the 
Timex computer evaluates the 
operation X=Y first, as the 
logic symbol = has جج‎ Priocrty 
higher than NOT. Parenthes 
thigh priorty) around the Oper- 


Ti 


a X=Y are not needed to do 
this. but may be used sometimes 
for clarity. The Timex compu- 
ter simply ignores superfluous 
Parentheses. 

NOT can be eliminated, if dë- 
sired, by inversing the expres— 
sion that it modifies. For €x- 
ample, NOT X=Y can be replaced 
by X<ov. But use Care in so do 


ing. The inverse GF XY is 
xX<=Y, and not simply X<Y. 


There are times when NOT C 
not convenientty be eliminat 
For example, NOT X means tha 
if X has a value of Ø, NOT X 
has ã Logic value of 1. If 
has a value other th 
has a logic value o 


NOT “something” Will 
have a logic value of Ø 
and nothing else. 


In Part II we wilt show how 
compound Logic statements can 
be built up using the combining 
Logic operators, AND and OR. 
And, how the Timex computer con— 
Siders the priorty GF all oper- 
ations, including those assign- 
€d to logic conditions, SOG that 
it can do “First things first"; 
thus arriving at the proper — 
action to take in amy Situation. 


o a 
a 
لت‎ 
z 
0 
par 
x 


Warren UFAR 


A Commonly found inst 1 
POR کے‎ y ry ee ruction ھا‎ most versions of BASIC is DATA and its cohor 


eee for the user trying to translate a progrem from another mach‏ لسم 


The Boston Computer <r Sinclair Tene Hows letter polished the folio 
1 . 
A statement allows a programer to define a ist of manors in his 


rs one at a tine, and assigni 
صا‎ bogini, ots, Statement forces the READ to scan list from . 

ln order to translate a program which has DATA statements, you musts 

1. Include the following routine in your program: ‘ 

S00 LET ۵1-0۰1 

$10 IF D§(DI )e*" "MEN GOTO ممو‎ 

520 LET DJ-DI 

S30 LET DJ-DJ+1 
. 538 IP جن‎ LEN D$ THEN GOTO 550 

$40 IF 0§(DJ) <> * » THEN COTO S30 

550 LET D=VAL D$(DI TO DJ-1) 

$60 LET Di-oJ 

RETURN 


2. Have a statement ۵1-0 somewhe 
(before dol any لیت‎ Follow this the | fee begimning of ن8‎ ohn سے‎ 


here", The data elements (i.e. mmbers) are Seperated by blanks 


3. Replace RESTORE statements in the program by LET .0۔۵1‎ 


4. Finally, replace READ Statements by GOSUB S00 followed 
‘ by LET variables... 
اوت ابی ا‎ saps GOSUB 500 and LET A-D. Error و‎ results if you read 


sone reason Sinclair BASIC doesn't include them. This ` 


| am writing to ask you what 
the error report code H means. 
For after typing in a program 
on my 2X81 which included 
machine code this was 
displayed and it quite baffled 
me for it is not detailed in the 
2X81 manual. Please could 
you enlighten me. 


Darren Crook 
Velindre 
Wales 


Darren 

This is what’s known as a 
crash. Usually with the 
average 2X81, crash looks 
much more hi-res-and-modern- 
art-mode, but this crash has 
somehow called the error 
report routine, and the report H 
has been thrown out because 
the report subroutine has been 
called in a non-standard way. 


What you must do is check the” 


program listing with the 
machine code you already 
have in your computer. This is 
000 where the problem 
ies. : 


| would be pleased if you could 
print a copy of the ‘‘Conver- 
sion Table”, for converting 
ZX81 PEEK values to that of 
the Spectrum. 

In various books | have seen 
such tables to convert ZX80 
PEEK values to the ZX81, but | 
have not yet seen one for the 
2×81 to Spectrum. 

Although | have both the 
Spectrum and ZX81, | much 
prefer the ZX81 with 16K 
memory, as the programs 
devised for it are both short 
and sweet, not as long-winded 
and bug-ridden as Spectrum 
programs. Thus, the Spectrum 
lies neglected until | convert 
PEEK values from better pro- 
grams for it. 


J T Clench 
Hall Green 
Birmingham 


Mr Clench 

I took your letter as a challenge 
and sat down and worked out 
the necessary conversions. 
Here they are for the first time, 
as you and | believe, in print at 
31ا‎ 


2×81 SPECTRUM 
16384 23610 

16385 23611 

16386 23613 

16388 23730 

16390 23617 

16391 23617 

16393 NO EQUIVALENT 
16394 23621 

16396 NO EQUIVALENT 
16398 23684 

16400 23627 

16402 23629 

16404 23641 

16406 23645 

16408 23647 

16410 23651 

16412 23653 

16414 23655 

16415 23656 

16418 23659 

16419 23660 

116421 23560 

16424 NO EQUIVALENT 
16425 23637 

16427 23662 

16429 23665 

16430 23666 

16432 23668 

16434 23670 r 
16436 23672 y 
16438 23677 

16439 23678 

16440 23680 

16441 23688 

16442 23689 

16443 NO EQUIVALENT 
16444 23296 

16477 23698 


3 
تی ا 
ma‏ 


x 
Max * 


LOADING/SAVING PROGRAMS 
8K ROM 


SAVING. Keep the tape-computer connector always plugged into the EAR and 
MIC receptacles of the Computer. Lowcver at the tape recorder end only 
keep the one connected which you are using. Let us say the last line of 
your program is 1000 SAVE. "SHOOTIST" Phen press LIST 1000 and ENTER. 
ars at bottom screen 


and computer. Only the MIC side of the connector is plugged into the tape 
recorder. You can have the TV sound up a bit as you record. If you have a 
long 16K program saving you can do other things and when the buzzing 
Sound stops and there is a 0/0 report bottom screen stop the tape and you 
have saved a program, Note the start and stop tape position and mark them 
in a catalog together with the SAVE title. Replay some of the tape to 
make sure you hear the shrill buzz of program (MIC plug pulled out). 


LOADING. LOAD in FAST mode. Type in the command LOAD "SHOOTIST" , Locate 
your program on the tape from your catalog. After you hear the title (it 
should be three times) there is a faint buzz. In a few seconds there is 
total silence. Stop the tape at the beginning of the silence, Plug into 
the tape the EAR side of the connector. Leave the MIC plug nat 

Connected to the tape. Adjust tape volume to the known proper level. Push 
the tape PLAY switch and immediately press ENTER on the ZX. Have the TV 
Sound up a bit and when the buzz stops and there is the 0/0 report 

bottom screen stop the tape and you have loaded the computer, 


SAVING FAILS. Check to see the tape volume is high enough. Check to see 
that you are using the MIC connector. Is the MIC plug in the right 
receptacle? Is the tape remote from the TV and ZX? Reset the voice title 
and SAVE again...it should work after all these checks. 


LOADING FAILS. Do the above checks and also put the computer end of the 
Connectors in and out a couple of times to shine the contacts. If you 
nave a 16K RAM pack put.it on and off twice to shine contacts. Sometimes 
the tape is stretched or glitchedin other ways. Programs should always 
be saved twice. Do not load or save on metal tables, 


CONNECTOR. The ZX comes with an 18 inch tape-2X connector. The older ones 
had screw in tips which break after much use. The later deliveries are 
with unitary plastic tips and are more durable. In persisent failures 
check connector for breaks (this happened to one of our older models), 


SAVING SCREEN DISPLAYS. 10 INPUT A$ 
20 PRINT "THIS DISPLAY WILL NO 
10 PRINT "THIS DISPLAY WILL ER T ERASE WHEN YOU HIT SAVE" 

ASE WHEN YOU HIT :م۹۸۷‎ ۷۰۷ 30 IF INKEY$="S" THEN SAVE A$ 
20 SAVE "TEST" 40 GOTO 30 


The left program is the regular way of saving. Try it and see that the 
Screen display is lost when saving is finished. RUN the right program. 
INPUT any string (any set of one or more characters) and hit ENTER. 
Press SAVE and notice after the saving the display remains on screen. IT 
will be saved. Remember you need the 30-40 continuing loop to make line 
30 work from the keyboard. The double quotation marks are SHIFT Q. 


FREQUENT SAVES. When composing or entering a long program SAVE after 
every 50 or 60 lines to avoid unfortunate losses from wipouts (crashes), 


PAUSE CAVEAT. With ZX80/8K ROM or 2XA1 FAST mode right after a PAUSE 
line you need a POKE 16437,255 line or crash happens in a few minutes. 


VARIABLES AND ARRAYS. In a long program with large arrays and many 
variables (all these arise from LET atatements) saving is prolonged 
because these items too are saved. Press CLEAR and ENTER before you save 
and all thse will be cleared away shortening saving time. A shorter 
program has less chance to be glitched. If you want to save these items 
because they would be hard to regain or type in then do this: For the 
second last line of the program insert a REM atatement (the last line is 
the SAVE line). Before you aave hit LIST (REM line number) and ENTER. 
Then SAVE program. Later when loading this program hit ENTER and the 
last two lines will appear on screen. The REM line should be something 
like 990 GOTO 100 TO PRSRV VARBLS , RUNning a program wipes out all 
variables, You use a GOTO statement to preserve them and the GOTO number 
must be past all the DIM and LET X=} type statements or there will be 
clearances, The REM line reminds you not to RUN when you first load the 
program, 


LARGE TO SMALL. You cannot LOAD a small program SAVED from a 16K 2X into 
a 1K ZX. You can from 1K to 16K. Large to small no,small to large yes. 


COMMONEST CRASHES; jiggling transformer jack or RAM Pack. 
SPEED TIP; In loading type LOAD "" and next program on tape will LOAD. 


Tired of using the same old commands? Well, saddle up your 


Interface 1 unit and let Gavin Smyth demonstrate the practice of 
adding up to 26 new commands to your Spectrum. 


Sinclair Basic, for all its slowness, is fairly 
comprehensive. But as with all things, the 
more you have, the more you want and a 
few extra commands might certainly 
come in useful. How about, for instance, 
an absolute draw. With Interface 1 
attached, it's possible to add as many 
extra commands as you like. 

First, let's look at the extended 
interpreter and the individual routines in 
detail. 


NEW INTERPRETATIONS 

When a line of Basic is entered, the ori- 
ginal ROM checks its syntax; if it fails to 
recognise the command, it passes control 
over to the Interface 1 ROM. This scans 


1 REM #» EXTENDED BASIC ٭٭‎ 
3 REM Mh line 20, set start 
to the desired beginning of the 
machine code, and in line 10, 
CLEAR to the location before 

4 


5 REM This BASIC program will 
relocate the code anywhere in 
memory, but it is fairly slow 

6 

7 REM The machine code is 559 
bytes long 

8 

10 CLEAR 64797 

20 LET start #64798 
30 LET ھ٠٠٣‎ 
40 FOR a=start TO start+558 
50 IF at="" THEN READ as 
POKE a,FN h(ast)s*lé6+FN hlas( 


70 LET aSeas(3 TO ) 

NEXT a 

99 FEM Now relocate the code 
LET :ہد“ ھ‎ LET p=4%: GO SUB 


110 
soo 

tae 
Soo 
130 
590 
140 
Soy 
1590 
S590 
160 
590 
170 
S00 
180 


LET a=53: LET p=99: GO SUB 


LET a=77: LET م‎ ۱۵5: GO SUB 


LET a83: LET p=267: GO SUB 


LET a=97: LET p=465: GO SUB 


LET a=100: LET 3:31; GO SUB 


LET a=l66: LET 35=31: GO SUB 


LET a=2468: LET 2=31: GO SUB 


LET a=463: LET p: I94, GO SU 


the line checking for new words such as 
‘FORMAT’. If this test also fails, the pro- 
cessor jumps to the error handling 
routine (at ERR6) via the vectored 
address at 23735. You can alter this add- 
ress and have further tests implemented 
to provide extra commands. 

This is what the extended interpreter 
does. It checks for the presence of an 
asterisk at the beginning of a statement 
followed by a letter; with this simple test, 
however, only 26 new commands can be 
invented. If it finds no asterisk or letter it 
gives the usual syntax error. If all is cor- 
rect, it jumps to the actual routine via the 
table of vectors. Note that unimple- 
mented commands point to the error 


B 0 

190 LET a=466: LET p=31: GO SUB 

500 

200 PRINT "To use the extra com 
mands, enter" 

210 PRINT ‘“POKE 23735,";start- 
2S6eINT (start/256)3"1 POKE 2373 
6,"sINT (start/256) 

220 STOP 

499 REM This routine sorts out 
the absolute addresses to 
relocate ‘ne program 

500 LET address=start+at+l 

510 LET pointsto=start+p 

520 POKE address,INT (paintsto/ 
254) 

570 POFE address-!1 ,pointsto-256 
«PEEK address 

540 RETURN 

899 REM function to convert a 
hex digit to its decimal velue 

qin? DEF FN hlas)@CODE at-48-74( 
as -a"A") 

999 REM data for the machine 
code program 


1000 
1910 
1020 
1030 
1940 
1959 
1960 
1070 
1080 
1090 
110 
1110 
1120 
1139 
1140 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"D7 1B00FE2AC2F001D720" 
“QUE69IFFE ۱۵۰۲۱۸۳ 
“2DDB06004F 095E 275“ 
٠ع9077400۴۴20‎ 6 ۳“ 
“FEOD20F ٣69۴۱۷۸۱۴۱۱۸۱۰۱۰ 
“OLFOULSTDBFOOLFOOLFO" 
“OLFOOLFOOLFOOLFOOIFO" 
“OLFOOLFOOLFOOLASDEFO" 
“OLFOO1LOBD9FOOLFOO1FO" 
“OLFOOLFOOLFOO1D1D9CD" 
“1FD807821CFE2CC2FOO1" 
“0772000076210606 ٭1‎ 
“۹94۱٢2176506 41601 ° 
“47C50507941ED1C1217D" 
“SCI6SB0ALEOLIBOALOFF” 


handler. ‘The individual command rou- 
tines check the rest of the syntax and 
contain the runtime routine. 

For the interpreter to function pro- 

rly, there must be at least one space 

tween the new command word and any 
following arguments. The command 
word must start with an asterisk and a let- 
ter, followed by any (or no) characters at 
all. 


ABSOLUTE DRAW 


The first new command is: 
“DRAW x,y 


Which draws to the point (x,y). It’s much 
simpler to use than relative co-ordinates 
(especially in graphs). Thus: 


PLOT 100,100: DRAW 20,30 
Is equivalent to: 
PLOT 100,100: “DRAW 120,130 


First, the routine calls SPACE to get to 
the end of the first word (in this case, 
*DRAW). Then it checks for the pre- 
sence of two numeric arguments 
separated by a comma; if there's some- 
thing wrong it jumps to the error handler. 
In syntax time — that is, when the line is 
first entered into a program — the routine 
ends here; in runtime the rest is executed. 
This part simply calculates the size of the 
relative co-ordinates and calls the Basic 
ROM’s DRAW subroutine. 

When this subroutine is being 
executed, the Interface 1 ROM is paged 
in. This allows routines in the Interface 
1'5 ROM, such as STEND, to be simply 
CALLed; routines in the main ROM, 
such as FNDINT1, have to be called via 


"04418-81666 0 ۰۰ 
“۳۵24701050 6×“ 
“1CFE2CC2F001D72000D7" 
“82 1CFE2CC2FO001D72000" 
“078621600870507 9 ٠۳١ 
2708270827160056“ 
“52۲۱۶۲507۹94۱6 ۰٣۳۰ 
"٦۱4۴۱0۱609۴55076 *“ 
“5۴5050740000706 ۳٣” 
“4601-86106003 5“ 
“ ۱۶۰02069702 7 3× 
"۴۱۰۲۱۵009631 1 D8" 
"0782100087050794 126“ 
“O32BOAFEO1 282CFE0228" 
“172 186C3ECO210040A706" 
“2ICBIE2Z31OFB3D20FSC3" 
“CLOS3ECO21FFS57A70620" 
“CBL62BLOFB3D20FS5C3C1" 
“OSA7 1100400603CS53E08" 
“08 3E07626B24E5012000" 
“EDBOD1 3D20F 3010007ED* 
"“ 425012000060“ 
2000100640954500 20" 
“00٥0426860806110 ٠" 
05700207723106ع“‎ ۳“ 
“O31 1FFS70603CS3E0808" 
“3E076246B25E501 2000ED* 
“88013020۴3016007 ۰ 
“0۱۰۱۱۰۸01 ٣۰ 
“0۱00660425450010 ٭+00‎ 
“O9EBEDBEC 1 10CD210040" 
20ن“‎ 38۵609+۳۰ 
“1CCDB705D7941EA72832° 
“FEO12809FEO2280D0F 07.6" 
“QOOAEFO1800121 100018" 
“O601FFFE21 2018110400" 
“1105056 ٠٣٤٦ 
“٦۱٥۸٤٤۱۱۰3020۴ 16311" 
“F JSA4GSCOFOFOF 260445" 
“2810۴03۶ 6 00 ۰“ 
“2805061۱18۴۱۲۴ 863“ 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1150 
1160 
1170 
11860 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1319 
1320 
1330 
1340 
1350 
1340 
1370 
1380 
1390 
1400 
1419 
1420 
1430 
1440 
1450 
1460 
1479 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 


This is the machine code disassembi 


Basic routines which expand Sinclair 


START RST 10 GETCHAR 
CP ee +" 


DRAW 


CRAWS 
DRAWS 
My ab 


system var 
be set to point to $' 


You can print a UDG anywhere on the 


LD E,1 
JR BRAVA 

LD D,FF 

NEG 

JR DRAWL 

LD &,FF 

NEG 

LECA 

RST 1٥ DRAUR 

pec fora actuat drawing 
uP END1 


screen using the routine 


1 below. You access this abili using the command ‘PRINT ×۷ (or 
jp s NE ER 66 Et ehar 5 ط*‎ × ۷۱۲۱۱۷۲۰۵ (x,y) is the peter coordinats of the top left of tine! 
RST 10 NXTCHAR character and cis the number of the UDG (A is ‘0', B is ‘1’, and so 
2° وی‎ ` 
+ > T CALL SPACE 
i Check And is within PRIN 
;alPphabetic range RST 19 EXPT1NM 
i (very simple test so may JP NZ ERR6 
fail with some Chars) RST 18 NXTCHAR 
KOR pa INDEX RST 10 EXPTINM 
J cC oo ee 
INDEX ADD ALA 4 
YUP NZ ERRGS 
EB oe RST 18 NXTCHAR 
LD C'A RST 13 _EXPT1INM 
ADD AL BC CALL STEND 
s RST 10 FNOINT1 
LD E, (FL) SLA 
LD D, (HL) SLA A 
5x DÉ, NE E5 oa 
i jump to specific routine LD E,A 
: for @ach of the new 2 Apo a 6 
i commands F , ۱ 
5 : HL COnNntains the tart 
مت ں٥ حطئاد؛:‎ to find the tof the Pedi aS NOS dats 
jend Of a word PUSH HL 
SPACE RST 18 CHADO RST 10 FNDOINT1i 
CP PUSH A 
RET Zz. RST 10 FNDINT1 
CRS FOP BC 
RET Z LD C,A 
CP 6D E ¿BC contains the co-ords 
JR_NZ SPAC JOf the point to Print to 
RET POP DE 
LD A,B 
PRNTL PUSH AF 
The table of vectors to the specific routines. PUSH BC 
کے‎ RST 10 PIxXADD 
ERR6 jerror vector iconvert co-ords into an 
ERRG ivector for #A.., ERRG ;4N raddress and pointer in A 
ERRG 3; #8... ERR6 + #0 PUSH AF 
ERR6 4 ¥#C PRINT ; «Pp PUSH HL 
PRAW 5; #D ERR6 j *0 PUSH DE 
ERR6 j;j #E ERR6 تہ‎ RST 10 TEMPS 
ERR6 j;j æF SCROL j «5 i: Set UP colours 
ERR6 ;#G ERR6 i #T RST 12 POATTR 
ERR6 j #H ERRE > #U Ifill in attributes 
ERR6 3 ¥I ERRG6 ہم لرا ي‎ POP HL 
ERR6 ل٭ رز‎ ERR6 seu LD B, (HL) 
ERRS6 7 #K ERRS6 i 4X POP D 
ERRG ji ا٭‎ ERRS وج‎ EX DE,HL 
ERR6 ; *#M ZAP بج‎ POP A 
LD  ,۵ f 
ls routine provides the command to carry out absolute drawing. ¿BC contains a byte of 
itis used in the form ‘DRAW x,y (or ‘d x,y), where x andy are the Resa data 
co-ordinates of the point to be drawn to. PRNT2 SAL B 
DRAW CALL SPACE BÊ“ 
RST „19 EXPTANM UR NZ PRNT2 
4 2: 1 
56۶۴ی‎ for separator ہوجو یں ھا رس‎ 
BENZ RRS 3 ٣٤۲٥٥٥ byte 
RST 18 NXTCHAR to (HL) ,5 
RST 18 EXPT1ANH INC HL ’ 
CALL STEND LO tHlL),c 
snow x & ۲ are on the top Put it on the screen 
Of the 3 ack PoP BC 
ST 10 FNDINT1 DEC B 
ig CO=OCd into A ' INC DE 
8 HL, COORDS +1 ;next Line 
¿address of Previous y Pop AF 
Str d relativi y SEG 
i in e 
JR C DRAN2 4B EROL s 
iva ets adjust it = 
DRAW1 LD ® ; à This part of the program provides a pixel scroll in any of four 
PUSH BC directions; the command is used in the form SCROLL n [or 's n), 
PUSH DE where n specifies direction. 
RST 108 FNDINT1I 
POP DE SCROLL CALL SPACE 
POP B RST 10 EXPT1iNN 
LO HL , COORDS CALL STEND 
SUB ) RST 10 FNOINT1 
5Sa MR for x co-ord AND 3 
JR C DRAUSS سر ب‎ itake N mod 4 


JR Z SCRLO ; LD A,8 
;SCrTOLL Fight i SCRLD EX AF 
ÈP 1 LO A,? 
JR Z SCRL1 ECRLE LD H,D 
jScCroLL up LD L,E 
CP 2 DEC H 
JR Z SCRL2 PUSH HL 
,SCroll Left LO BC,+32 
JR SCRLE LDDR 
,&CrOoLL down POP DE 
ACRLO LD A, +192 DEC A 
NO Of Lines on screen JR NZ SCRLE 
Co HL, +16384 LO BC,+1792 
;Start of screen ADD HL,BC 
SCRL3 AND A PUSH HL 
Clear carry LD BC, +32 
۲ ec .ا‎ li hag 
Jno ò ytes per ne 
SCRL4 RR (HL) یس‎ 
Shift 1 bit right OEC A 
INC HL ; JR NZ SCRLO 
;next byte on Line LD BC,+1768 
DINZ ا5ک5‎ +4 SBC HL,BC 
DEC A LO ٥,۲ 
inextl line LD E,L 
JR NZ SCRLS LD BC, +32 
JP END1 ADD HL,BC 
SCRL2@ LO A,+192 EX DE,HL 
LO HL, +22527 LDDR 
terest yend Of screen POP BC 
ScoRLS AND A DUNZ SCRLC 
LD B8,+32 LD HL, +16364 
SCRLEA RL (ML) ۱ LD B,+32 
Pea A 1 pixel Left JF SCRLA Či 
;CLear to ne 
DINZ SCRL6 : P 
DEC R This last routine provides better sound effects. The command is 
JR NZ SCRLS used in the form ‘ZAP n (or ‘zn), where n specifies whether you 
JP END1 require an explosion, a falling tone or a rising tone. 
SCRL1 AND A 
,reset carry ZAP CALL SPACE 
LO DE, +16364 RST 1@ EXPT1NM 
;ist byte orf screen CALL STEND 
LD B,S RST 10 FNDINT1 
no Of ‘sections’ to AND A 
: be scrolled JR Z 66۵ 
SIRL? PUSH BC CP i 
LD A,8 JR Z ZAP1 
ino Of Character Lines CP 2 
Per section JR Z ZAP2 
<5 EX AF LO (IY+08) ØA 
LO A,? RST 28 
jno Of pixel Lines per integer out of range 
i character =- L ;error code 
SCRLO LD H,D ZAP1 LO BC,180 
LD L,E LD HL,10 
ZNO ا‎ j ZAp2 CO BC PEFF 
HL Points to next pixel 2€ L ’ 
tine P LO HL, 1820 
PUSH HL ZAPS LO DE, 
LD 6C,+32 LD A,10 
LOIR ZAP4 PUSH BC 
POP DE PUSH DE 
DEC A PUSH HL 
JR NZ SCRLO PUSH AF 
LD B6C,+1792 RST 10 BEEPER 
SAC HL,BC ;Make short burst of tone 
;adjust pointer to start POP AF 
OFf next Character Line POP HL 
PUSH HL POP DE 
LD BC, +32 POP BC 
LOIR ADO HL,BC 
POP DE i Change frequency 
EX AF DEC A 
DEC A JR NZ ZAPa4 
JR NZ SCRLB JP END1 
LD 6C,+1768 ZAPO DI 
ADD HL, BC LD A, (BORDCR) 
LD رج‎ RRCR 
LD E,L RRCA 
LO BC,+32 RRCA 
SBC HL,BC ;Azborder colour 
¿adjust pointer for next LD ٢,۹4 
screen section ZAPS LO B, (HL) 
EX DE,HL DEC HL 
LDIR ZAPS OUNZ ءء٤‎ 
POP BC ; ‘random’ delay to 
DINZ SCRL? لاج 0م‎ white noise 
LD HL, +22496 OUT FE,A 
LD B,+32 jactivate speaker 
>nOw clear the Last Line XOR 10 
SCRLA LO (HL) ,A , toggle speaker On/Off 
;A_already contains © Ex AF 
INC HL LD A,H 
DINZ SCRLA OR ا‎ 
JP 041ج‎ JR Z ZAP? 
SCRLB LD DOE, +22527 Ex 
j tast Location On screen JR ZAPS 
3 ZAP? Er 


Lo B 
SCRLC PUSH’ BC JP END1 


:13:0 نے 
کے سے 


RST 10h followed by the starting address 
(this is true for all the new command 
routines). 


PRINTING PIXELS 

The next routine allows a user-defined 
graphic character to be placed anywhere 
on-screen. The reason for restricting it to 
UDGs is that it's unlikely that anyone 
would want to print a lot of text like this 
(since the routine handles only one char- 
acter at a time) and, if required, the 
UDGs may be re-defined as letters. 

The syntax for the command is: 


“PRINT ۶ 


Where (x,y) are the pixel co-ordinates of 
the top left corner of the character (x lies 
between zero and 255, y between zero 
and 175) andc is the number of the UDG 
(UDG A is zero, UDG Bisone. .. UDG 
U is 20). For example: 


FOR x=0 TO 247: ‘PRINT x,100,0: NEXT x 


The above will glide the first UDG (in- 
itially a capital ‘A’) across the screen. This 
time the extended syntax checker looks 
for three numbers separated by commas. 

In the runtime routine, the data for the 
UDG is found and shifted across to give 
the correct information for the screen 
memory; the listing contains the code 
and full comments. The routine ends 
with the attribute bytes being set to the 
permanent colours, 


PIXEL SCROLL 


The scroll command allows pixel scroll- 
ing of the entire screen. The actua! 
command is: 


‘SCROLL n 


Where nis a numeric expression controll- 
ing the direction of the scrolling (n must 
lie between zero and 255, but only the 
mod four value is used): 

n=0 (or 4,8,...) scrolls right one pixel 

n=l] (or 5,9,...) scrolls up 

n=2 scrolls left 

n=3 scrolls down 
For example, to scroll one whole charac- 
ter down, you could use: 


FOR f=1 TO 8: “SCROLL 1۱ 


This moves the screen by eight pixel lines. 
The syntax checker this time looks for 
only one numeric argument. Only the 
lower two bits are used (giving a range of 
zero to three) and the routine jumps to 
each separate scrolling routine. The left 
and right scrolls are fairly simple — they 
just shift each Hine of 32 bytes y One bit. 
The up and down scrolls are complicated 
by the layout of the screen memory, but 
all they do is move each line into the one 
above or below, clearing the final one. 

The colour attributes are not affected 
at all, since they have only character 
block and not pixel resolution. 


SIMPLE SOUNDS 

The final routine is a simple sound effects 
generator — useful for games if nothing 
else, The command syntax is: 


SO GEE VALU 


_GETCHAR 18 


STEND 587 


۸۱۲ 
Fetches current char on BASIC line intoA 


NXTCHAR 20 Fetches next char, ignoring spaces i 
68 10 Normal error handler 
“TEND سس‎ erante ١... 7 


Subroutine to exit command routine in syntax 


check time 


END1 5C1 Routine to exit in runtime 
“EXPTINM rag ce 


Syntax checker for expecting a numeric expression 


(puts iton the stack) 


Fetches number into A from stack 
Loudspeaker routine HL=437500/freq-30.125 


DE=freq* duration 


Reads next character including spaces 
System variable holding attributes for the lower 


screen and border 


Puts A on to the calculator stack 
System variable holding x & ۷ co-ordinates of last 


point plotted 


Relative draw routine, takes x & y offsets from BC 


& DE registers 


Converts co-ords in BC to an address in HL 
System variable holding address of user-defined 


graphics data 


EXPTINM 102 
FNDINT1 14 
BEEPER 385 
CHADD 74 
BORDCR +23624 
STACKA 2028 
COORDS +23677 
DRAWR 24BA 
PIXADD 22AA 
UDG +23675 
POATTR BDB 
TEMPS 040 


Sets attributes for the screen byte in HL 
Sets temporary colours (used by POATTR) to the 


permanent colours 
The ROM routines and addresses used by the program. 


‘ZAP n 


Where n, between zero and two, specifies 
the type of sound: 

n=0 gives an explosion noise 

n=] gives a falling tone 

n=3 gives a rising tone 
For example: 


FOR f=1 TO 100: ۰2۸۳ INT(RND*3):NEXT í 


The above wiii give several seconds of 
‘exciting’ sounds (well, more exciting 
than BEEP!). The computer again looks 
for a single argument and checks its 
value; if it's out of range, it gives an error, 
otherwise it jumps to the specific routine. 
The rising and falling tones are produced 
by short beeps of changing frequencies, 
while the explosion is produced by send- 
ing ‘random’ data from the ROM to the 
speaker port. 


A COMMANDING LEAD 


You can check from the assembler listing 
several important points about adding 


` new commands: 


l. First, the syntax is checked — using 
EXPTINM for numeric expressions 
and CP “,” to check for separating 
commas. This section ends with 
CALL STEND. 

2. Next comes the runtime routine 
and, since the values of the arguments 
are On the calculator stack, these can 
be pulled off into the A register with 
61. 

3. The runtime code ends with ajump 
to ENDI. 

4. Any subroutine in the Basic ROM 
must be called via RST 10h. Note that 
all registers are preserved while the 
ROMS are paged. 

5. Before the code will run, the vector 
at 23735 must point to the beginning, 
with a jump back to ERR6 at the end 
to trap genuine syntax errors. 


The code may be entered using either an 
assembler or the Basic program provided 
which will relocate the 559 bytes of 
machine code anywhere in memory; it 
should run ona 16K Spectrum, so longas 
Interface 1 is connected. 

To use it, set lines 10 and 20 to the 
desired starting address (for example, 
31000 in a 16K machine and 64700 in à 
48K modei). Next SAVE the program in 
case there is a mistake (which is usually 
fatal in machine code). Now, RUN the 
Program and after a few minutes a mes- 
sage will appear on the screen; the code 
has been located in memory but will have 
no effect since the vector at 23735 has 
not been altered. To use the extra com- 
mands enter the line in the message — as 
a single line rather than two separate 
POKEs, otherwise the machine may 
Crash. 

If NEW is entered the vector is reset; 
however, the code is still in memory, so 
repeat the two POKEs to allow the com- 
mards to be used. We've seen a simple 
interpreter that will allow up to 26 new 
commands, but with only four examples; 
there are 22 more possible words, so get 
working! 


ASSEMBLER NOTES 

The assembler used was the Artic version 
which, in fact, is slightly non-standard. 
The main differences between it and a 
Standard assembler are: 


EQU is replaced by the ‘=' sign. 
Allnumbers are in hexadecimal unless 
preceeded by ‘+' or '-' in which case 
they are in decimal, 

DEFB, DEFW, and soon donot exist; 
the number or label is simply placed in 
the source text where.the DEF 8 would 
occur, and EX AFAF is entered us 
EX AF. gs 


